home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 May / CMCD0504.ISO / Software / Freeware / Programare / dspack / DSPACK231.exe / {app} / Demos / wmvnetwrite / Unit1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-12-16  |  1.5 KB  |  66 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ComCtrls, activex, NetWrite,wmf9;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Edit1: TEdit;
  12.     Edit2: TEdit;
  13.     UpDown1: TUpDown;
  14.     UpDown2: TUpDown;
  15.     Label1: TLabel;
  16.     Label2: TLabel;
  17.     Button1: TButton;
  18.     OpenDialog: TOpenDialog;
  19.     Button2: TButton;
  20.     Memo1: TMemo;
  21.     procedure Button1Click(Sender: TObject);
  22.     procedure Button2Click(Sender: TObject);
  23.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.   end;
  29.  
  30. var
  31.   Form1: TForm1;
  32.   net: TWMFNetWrite;
  33. implementation
  34.  
  35. {$R *.dfm}
  36. procedure TForm1.Button1Click(Sender: TObject);
  37. begin
  38.   if OpenDialog.Execute then
  39.   begin
  40.     if assigned(net) then net.free;
  41.     net := TWMFNetWrite.Create;
  42.     button2.Enabled := true;
  43.   end;
  44. end;
  45.  
  46. procedure TForm1.Button2Click(Sender: TObject);
  47. var hr: HRESULT;
  48. begin
  49.   Button2.Enabled := false;
  50.   hr := net.Init;
  51.   memo1.Lines.Add(inttohex(hr,8));
  52.   if Failed(hr) then exit;
  53.   hr := net.Configure(UpDown1.Position, StringToOleStr(Opendialog.FileName), UpDown2.Position);
  54.   memo1.Lines.Add(inttohex(hr,8));
  55.   if Failed(hr) then exit;
  56.   hr := net.WritetoNet;
  57.   memo1.Lines.Add(inttohex(hr,8));
  58. end;
  59.  
  60. procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  61. begin
  62.   if assigned(net) then net.free;
  63. end;
  64.  
  65. end.
  66.